|
CATIA V5 Programmierung : in Produkt externes Part durch select ersetzen
cmb am 30.09.2011 um 13:58 Uhr (0)
Hallo Forum,ich habe in meiner Catia Sitzung ein CATProduct (active Document) und ein Part geöffnet.Nun möchte ich durch eine selektion einen Replace machen.Das zu ersetzende Part kann ich auswählen das funktioniert.Aber die zweite selektion bringe ich nicht zum laufen. Muss ich die selektion in ein Array übergeben?GrußNorbertCode:Sub CATMain() Dim oDocs As Documents Dim oDoc As Document Dim oProd As Product Dim oSel As Object Dim aAuswahlFilter(0) Dim Status As String Dim oPartNeu As Document Set ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Messung Löschen
cmb am 02.08.2010 um 17:16 Uhr (0)
Hallo Forum,ich möchte gerne aus einer TemplateDatei eine Messung herauslöschen.Diese hat immer den Namen "Ueberlaufvolumen"mein Code:Sub CATMain()Dim oPart As PartDocumentSet oPart = CATIA.ActiveDocument For i = 1 To oPart.Part.Parameters.Count Dim oPara As Parameter Dim selection1 As Selection Set oPara = oPart.Part.Parameters.Item(i) If oPara.Name Like "*Ueberlaufvolumen*" Then oPara.Delete selection1.Add (oPara) Objekt unterstützt diese Methode nicht End If Next ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : in Produkt externes Part durch select ersetzen
cmb am 04.10.2011 um 09:17 Uhr (0)
Hallo Bernd,vielen Dank für die Lösung, funktioniert Super.Wenn ich die Frage früher gepostet hätte, hätte ich mir 2 Tage ausprobieren erspart ,-(.GrußNorbert ------------------V5R20Catia + Smarteam
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : in View Selection Linienstärke ändern (CatDrawing)
cmb am 26.02.2013 um 12:03 Uhr (0)
Kaum macht man es richtig...Code: If oAktivView Like Viewname_measure & "*" Then myView.GetViewName MyPrefix, MyIdent, MySuffix oSel.Add myView oSel.VisProperties.SetShow 0 ElseIf oAktivView Like Viewname_Dekor & "*" Then myView.GetViewName MyPrefix, MyIdent, MySuffix oSel.Add myView oSel.VisProperties.SetShow 0 mod 26.Febr. Linien formatieren Dim oSelgenElements As Selection Set oSelgenElements = oSel.Selection oSelgenElements.Search "C ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : body Name auslesen
cmb am 14.12.2011 um 15:23 Uhr (0)
Hallo Bernd,vielen Dank für die Info das soll laut Hilfe ja funktionieren aber ich bringe es nicht zum laufen: Code:Sub CATMain()Set oDoc = CATIA.ActiveDocumentSet oPart = oDoc.PartSet Koerper = oPart.BodiesDim iSel, iStatus, sFilter(0)Set iSel = CATIA.ActiveDocument.SelectionsFilter(0) = "Body"iStatus = iSel.SelectElement3(sFilter, "Part selektieren / ESC bei keine Auswahl", False, CATMultiSelTriggWhenSelPerf, False)If iStatus = "Normal" Then Else MsgBox "Abbruch(Cancel) der Auswahl", vbOKOnly + vbCriti ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : View einblenden ( Show)
cmb am 06.07.2010 um 11:17 Uhr (0)
Hallo Forum,ich möchte gerne explizit eine View ins Show / NoShow stellen.Der Recorder würde ein VisPropertySet aufnehmen.Kann ich meine View zu einem Set dazu addieren?(Ich möchte meine Views später einmal rekursiv durchlaufen.)Mein Code:Sub CATMain()Dim oDoc As DocumentSet oDoc = CATIA.ActiveDocumentSet oSheets = oDoc.SheetsSet oSheet = oSheets.Item(1)Set oViews = oSheet.ViewsDim myviewSet myview = oViews.Item(3)myview.GetViewName MyPrefix, MyIdent, MySuffix Dim Selection, VisPropertySet Set Selection = ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : selection.search 2D und while Schleife
cmb am 01.10.2007 um 15:22 Uhr (0)
Hallo Forum,ich möchte gerne aus der Suche eine Reihe 2D Texte als Parameter generieren. Die Suche :selection1.Search "CATDrwSearch.DrwText,sel"Die Paramterschleife:Dim k k=1 While(k-1DrawTexts.Count) Dim DrawText Set DrawText = DrawTexts.Item(k) Dim Param Set Param = Params.CreateString(DrawText.Name,"") Param.ValuateFromString DrawText.Text DrawText.InsertVariable 1,Len(DrawText.Text),Param k=k+1 WendKann mir hier vielleicht jemand zeigen wie ich mit einer selection in einer Schleife arb ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : body Name auslesen
cmb am 15.12.2011 um 11:39 Uhr (0)
Hallo Bernd,vielen Dank für deinen Hinweis, das war die Lösung. Sollte jemand ähnliche Probleme haben s.u.Gruß NorbertCode:Sub CATMain()On Error Resume Next Dim oDoc As Document Dim oProd As Product Set oDoc = CATIA.ActiveDocument Set oProd = oDoc.Product Set Publics = oProd.Publications Dim ref1 As String Dim part1 As Part Set part1 = oDoc.Part Dim relations1 As Relations Set relations1 = part1.Relations Dim para1 As Parameters Set para1 = oProd.UserRefPropertiesloeschen der Vorhandenen User ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : selection.search 2D und while Schleife
cmb am 02.10.2007 um 08:53 Uhr (0)
Hallo Lusilnie,funktioniert aufs erste Mal. Vielen Dank.LG cmb
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : selection.search 2D und while Schleife
cmb am 02.10.2007 um 16:01 Uhr (0)
Hallo Alex,funktioniert super, vielen Dank10Points goto BigChese + LusilnieLG cmb
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : in View Selection Linienstärke ändern (CatDrawing)
cmb am 26.02.2013 um 11:40 Uhr (0)
Hallo Forum,ich möchte in einer View Selection gerne alle Linienarten auf gepunktet setzen. Ein Auszug aus meinem Code:Code: ElseIf oAktivView Like Viewname_Dekor & "*" Then myView.GetViewName MyPrefix, MyIdent, MySuffix oSel.Add myView oSel.VisProperties.SetShow 0 hier stelle ich die View auf show mod 26.Febr. Linien formatieren Set visProp1 = oSel.VisProperties visProp1.SetRealLineType 15, 1 alternativ getestet oSel.VisProperties.Se ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Select Edge aus Subroutine
cmb am 15.12.2011 um 15:52 Uhr (0)
Hallo Forum,Ich möchte gerne aus einer Selection eine Edge übergeben.Die Selektion habe ich in einer Subroutine. (Das benötige ich später noch mehrmals)Eine Selektion mit dem Filter Body übergibt die SUB ohne zu meckern. Bei set reference2 kommt es zu einem Fehler.Kann es sein, das mein Aufruf mit oPart nicht stimmt?GrußNorbert Code:Dim iSelDim iStatusDim sfilter(0)Dim Bodyname zur KontrolleDim oPart As PartDim oDoc As PartDocumentSub CATMain()Set oDoc = CATIA.ActiveDocumentSet oPart = oDoc.PartCATIA.Acti ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Part update
cmb am 22.04.2010 um 16:40 Uhr (0)
Hallo,ich möchte gerne in einem Assembly ein einzelnes Part aktivieren + updaten. Das aktivieren funktioniertAuszug:If param40_neu = 500 Then aktivieren Stift angefraesst Set product3b = products40.Item(param01) Set products3b = product3b.Products Set product4b = products3b.Item(param40_neu&"_a") hier wähle ich den Exemplarnamen des CatParts aus product4b.ActivateDefaultShape funktioniert aktiviert den Knoten meines Catia Parts product4b.Update funktioniert nichtbeim Aufnehmen der Updatefunktion n ...
|
| In das Form CATIA V5 Programmierung wechseln |
